home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / program info.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  44 lines
  1. 10 REMPROGRAM LOAD INFORMATION
  2. 12 PRINT"[147]PROGRAM LOAD INFORMATION":XY$="0123456789ABCDEF"
  3. 13 PRINT"BY BOB SWIFT            ":C=0
  4. 15 INPUT"PROGRAM NAME";F$:OPEN15,8,15
  5. 20 OPEN2,8,2,"0:"+F$+",P,R"
  6. 30 GET#2,L$:IFST<>0THENINPUT#15,E1,E$:PRINT"";E1;"[157], ";E$;" ":GOTO80
  7. 40 GET#2,H$
  8. 50 X$=H$:GOSUB 100:H=X*256
  9. 60 X$=L$:GOSUB 100:L=X
  10. 70 PRINT"LOAD FROM : $";:X=H+L:GOSUB130:GOTO150
  11. 80 CLOSE2,15
  12. 90 END
  13. 100 IF X$="" THEN X=0:RETURN
  14. 110 X=ASC(X$)
  15. 120 RETURN
  16. 130 X1=X:A$="":FORI=1TO4:Y=INT(X/16^(4-I)):A$=A$+MID$(XY$,Y+1,1)
  17. 140 X=X-Y*16^(4-I):NEXT:PRINTA$,X1:RETURN
  18. 150 GET#2,A$:C=C+1:IFST=0THEN150
  19. 160 CLOSE2,15:X=C+X1:PRINT"       TO : $";:GOSUB130
  20. 170 PRINT"NUMBER OF BYTES :";C;""
  21. 200 REM:                              :
  22. 201 REM:   PROGRAM LOAD INFORMATION   :
  23. 202 REM:                              :
  24. 203 REM:              BY              :
  25. 204 REM:                              :
  26. 205 REM:          BOB SWIFT           :
  27. 206 REM:                              :
  28. 207 REM:                              :
  29. 208 REM:   THIS PROGRAM WILL DISPLAY  :
  30. 209 REM:   THE FOLLOWING INFORMATION  :
  31. 210 REM:   ON THE SCREEN ABOUT ANY    :
  32. 211 REM:   PROGRAM ON DISK THAT YOU   :
  33. 212 REM:   CARE TO CHECK.             :
  34. 213 REM:                              :
  35. 214 REM:   INFORMATION:               :
  36. 215 REM:                              :
  37. 216 REM:     LOAD FROM: $HHHH  DDDDD  :
  38. 217 REM:            TO: $HHHH  DDDDD  :
  39. 218 REM:                              :
  40. 219 REM:     NUMBER OF BYTES: DDDDD   :
  41. 220 REM:                              :
  42. 221 REM:                              :
  43. 222 REM:                              :
  44.